home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 11
/
CU Amiga Magazine's Super CD-ROM 11 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-06].iso
/
s
/
fontlist.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1992-07-18
|
559b
|
28 lines
/*
Return the fontlist with the current font at the beginning of list
*/
parse arg cfont
fontlist = getclip(ppuser_fontlist)
if fontlist = '' then
do
fontlist = ppm_GetTypeFaceList()
fontlist = substr(fontlist, pos('0a'x, fontlist) + 1)
call SetClip(ppuser_fontlist, fontlist)
end
if cfont ~= '' then
cfont2 = '0a'x || cfont
do
stringpos = pos(cfont2, fontlist)+1
if stringpos ~= 0 then
do
fontlist = delstr(fontlist, stringpos, length(cfont2))
fontlist = cfont || '0a'x || fontlist
end
end
return(fontlist)